home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-004 ms visual basic pro 30 / 4.imz / 4.IMA / MCITEST.FR_ / MCITEST.bin
Text File  |  1993-04-28  |  3KB  |  97 lines
  1. VERSION 2.00
  2. Begin Form MCITest 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "MCI Control Application"
  5.    ClientHeight    =   870
  6.    ClientLeft      =   2595
  7.    ClientTop       =   2580
  8.    ClientWidth     =   3765
  9.    Height          =   1560
  10.    Icon            =   MCITEST.FRX:0000
  11.    Left            =   2535
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   870
  16.    ScaleWidth      =   3765
  17.    Top             =   1950
  18.    Width           =   3885
  19.    Begin Menu AL_DEVICES 
  20.       Caption         =   "&Devices"
  21.       Begin Menu AI_ANIMATION 
  22.          Caption         =   "&Animation..."
  23.       End
  24.       Begin Menu AI_CDAUDIO 
  25.          Caption         =   "&CDAudio..."
  26.       End
  27.       Begin Menu AI_SEQUENCER 
  28.          Caption         =   "&Sequencer..."
  29.       End
  30.       Begin Menu AI_WAVEAUDIO 
  31.          Caption         =   "&WaveAudio..."
  32.       End
  33.    End
  34.    Begin Menu AL_HELP 
  35.       Caption         =   "&Help"
  36.       Begin Menu AI_ABOUT 
  37.          Caption         =   "&About..."
  38.       End
  39.    End
  40. End
  41.  
  42. Sub AI_ABOUT_Click ()
  43.     ' Display the "About Box".  Then allow Windows messages
  44.     ' to be processed before setting the focus to the
  45.     ' OK button.
  46.     AboutBox.Show
  47.     WaitForEventsToFinish 50
  48.     On Error Resume Next
  49.     AboutBox.BTN_OK.SetFocus
  50. End Sub
  51.  
  52. Sub AI_ANIMATION_Click ()
  53.     DialogCaption = "MCI Animation Theater - "
  54.     Animate.Caption = "MCI Animation Theater"
  55.     
  56.     ' Set the "Open File..." dialog to display *.mmm files.
  57.     OpenDlg.CMDialog1.Filter = "Movie File (*.mmm)|*.mmm"
  58.     Animate.MMControl1.Wait = True
  59.     Animate.MMControl1.DeviceType = "MMMovie"
  60.     Animate.Show
  61.     MCITest.Hide
  62. End Sub
  63.  
  64. Sub AI_CDAUDIO_Click ()
  65.     CD.Show
  66.     MCITest.Hide
  67. End Sub
  68.  
  69. Sub AI_SEQUENCER_Click ()
  70.     DialogCaption = "MIDI Sequencer - "
  71.     Wave.Caption = "MIDI Sequencer"
  72.     
  73.     ' Set the "Open File..." dialog to display *.mid files.
  74.     OpenDlg.CMDialog1.Filter = "MIDI File (*.mid)|*.mid"
  75.     Wave.MMControl1.DeviceType = "Sequencer"
  76.     Wave.Show
  77.     MCITest.Hide
  78. End Sub
  79.  
  80. Sub AI_WAVEAUDIO_Click ()
  81.     DialogCaption = "WaveAudio - "
  82.     Wave.Caption = "WaveAudio"
  83.     
  84.     ' Set the "Open File..." dialog to display *.wav files.
  85.     OpenDlg.CMDialog1.Filter = "WaveForm File (*.wav)|*.wav"
  86.     Wave.MMControl1.DeviceType = "WaveAudio"
  87.     Wave.Show
  88.     MCITest.Hide
  89. End Sub
  90.  
  91. Sub Form_Unload (Cancel As Integer)
  92.     ' Remember to unload the OpenDlg form since it is
  93.     ' only "hidden" when it is removed.
  94.     Unload OpenDlg
  95. End Sub
  96.  
  97.